'Include these if the system I2C bus has not been established as I2C2
'SetPin gp2,gp3,i2c2
'I2C2 open 100,1000

AllOn = &Hff
AllOff = &H00

do
  I2C2 write 63,0,1,AllOn
  
  pause 10
  
  I2C2 read 63,0,1,InByte
  
  print "In byte at 63 is: ";InByte
  
  pause 500

  I2C2 write 63,0,1,AllOff
  
  pause 10
  
  I2C2 read 63,0,1,InByte
  
  print "In byte at 63 is: ";InByte
  
  pause 500
  
loop until inkey$ <> ""

end
